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Open the Time Domain data file. 
Read the parameters, NumSets , NumPts 
Initiate Sum( ) and count to null 



Read Next Set of Data 
into tddata( ) 






r 


Apply Hanning Window 
tdwdata( )=Han (tddata( )) 






r 




Calculated power Spectrum 
specdata( )=Spectrum (tdwdata( )) 


V 




Sum ( ) = Sum ( ) + specdata( ] 
count = count+1 


I 



^ Is \ 
count = Numsets 

\ ? ^ 





Yes 

r 


spectrum( )=Sum( )/ count 
Store spectrum( ) in output 

filo 


d 

FIG. 
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Divide the collected data into equal sets. Perform 
Harming Windowing , FFT on each set to obtain 
'Smoothed Periodogram' by averaging all the sets. 




1 


r 



Identify the fundamental supply component by locating the 
component having maximum amplitude in the stator current 
spectrum. Record its frequency (F s ) and amplitude (FsAmp). 
Locate multiples of F s (supply related components) 



Calculate synchronous speed of the motor, F sync = F s /polepairs. 
Locate the slip frequency related components by searching between 
(mF s -2F s i m in) and (mF s -10F s i max ) for m = 3,5 and 7. 
Fsimax = F sync * maximum slip 
F s imin = F sync * minimum slip 

j 

Calculate the slip from the above components. 
Locate F s + F r and record its amplitude FrAmp 

where F T = F svnc * (\-slip) 

Search and locate the remaining c slip frequency related' 
harmonics adjacent to other supply related components. 



Eliminate all the'slip frequency related' harmonics between F s 12 and 3F S 12 and 

measure the noise in the region. 
noise J = [sum of noise between {(F s - L -J) and (F s - L)}+ {(F s + L ) and (F s + 

L+J)}] 

noise J = [sum of noise between {(F s - L -J(i+1)) and (F s - L-Ji)}+ {(F s + L+Ji ) 

and (F s + L+J(i+1))}] 
for i = 2 to 5, L=6*resolution, and J= F s /10 



Preprocess the attributes slip,FsAmp, SigAmp, 
Noise l, Noise_2, Noise_3, Noise_4 and Noise_5 
to make them acceptable by the Neural Network 
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Scan the NORMAL data 
Derive generic limits 
gmaxi and gmirii for each 
attribute, i 



Omaxj 


= gmaxi 


Omirii 


= gmia 



Get new input, datum 
Clip datum if outside hardjimits 




PmaXi 


= Omaxj 


Pminj 


= Ominj 



Pmaxi = datumi 



Pmirii = datum; 



Rescale the database 
and listmemory 



Scale datum using Pmax and Pmin 



Omaxi = 


= Pmaxj 


Omirii = 


= Pmirii 



Add datum to the database 
Apply datum to the ALM to 
update the listmemory 



Fig. 20 
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